Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00204_Generic Timer Class.ls

Text File | 1997-07-10 | 563 b | 32 lines

property actions, lastTime, interval, killList

on new me, paramList
  set killList to []
  set actions to []
  set lastTime to 0
  set interval to getProp(paramList, #interval)
  return me
end

on AddAction me, action
  append(actions, action)
end

on CheckIdle me
  if the ticks > (lastTime + interval) then
    repeat with action in actions
      TurnOn(action)
    end repeat
    set lastTime to the ticks
    return 1
  end if
end

on dispose me
  set actions to 0
  set lastTime to 0
  set interval to 0
  ClearObjectList(killList)
  set killList to []
end